home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / mus / edit / OctamedSS1.03c.lha / Soundstudio / Rexx / omed.lha / rexx / Shrink.omed < prev    next >
Text File  |  1996-06-09  |  349b  |  15 lines
  1. /* Shrink Track */
  2. 'ed_getnumlines var numlines'
  3. 'ed_getcurrline var currline'
  4. if currline=numlines-1 then do; 'ed_goto line' 0; leave; end
  5. keepline=currline
  6. 'op_update off'
  7. do forever
  8.     'ed_advanceline down' 
  9.     'ed_deletenote'
  10.     currline=currline+1
  11.     if currline>=numlines-1 then leave
  12. end
  13. 'ed_goto line' keepline
  14. 'op_update on'
  15. wi_showstring "Shrunk."